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abbonamento 
nell’edizione 
per il tuo 
computo 


Il primo settimanale di software su carta per il tuo 
personal computer. Un appuntamento al quale non 
mancare ogni venerdì in edicola. 

Ncrtoi in edizione unica, per i più diffusi home 
e personal computer, dal 4 Aprile, allo 
stesso prezzo, sono in edicola le versioni 
dedicate ai calcolatori Commodore, 

Sinclair e un'edizione esclusiva 
dedicata ai personal Apple, Texas 
TI99/4A e ai sistemi MSX. Puoi anche 
abbonarti dal 4 Aprile al 31 Dicembre 
riceverai così, comodamente a casa con 
un notevole risparmio, 38 numeri del 
settimanale. Chi si abbona riceverà ogni 
15 giorni 2 numeri di Paper Soft in 
anticipo rispetto all’uscita in edicola. 

NON PERDERE QUESTA OCCASIONE! 

Compila subito il coupon sotto riportat 
e spediscilo a: 


vj SOft 


puoi 


Viale Restali!, 5-20124 Milano 


Tagliando abbonamento a PAPERSoft da inviare in busta chiusa a: 

•ì.soft - Viale Restelli, 5 - 20124 MILANO 

□ Abbonamento a 38 numeri di PAPER Soft al prezzo speciale di L. 30.000 anziché L..' 

□ edizione Sinclair (PS01) □ edizione Commodore (PC01) □ edizione Apple/TI99/MSX (PV01) 

□ contanti allegati " □ assegno allegato n.- 


□ ho versato l'importo sul c.c.p. n. 19445204 intestato a J.soft- MILANO 

Cognome_ Nome 

Via_ Città 

CAP_ Prov. _ Data 
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Guida per l’input dei programmi versioni YIC IO e €04 


Notate che i listati contengono “parole" rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [{ )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico “solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 


{CLR} 

{ HOME } 
{SU} " 
{GIU ' } 
{SIN} 
{DES} 

{RVS } 
{OFF} 

{BLK} 

{ WHT } 
{RED} 


SHIHICLR/MOMéI 
[CLP/HOME ] 

Bn CPSfiT 

SHIFT |c=CBSR=? 

fè~CS$fi ^5 


m □ 


[ CIRI 

!® 

■■ 

CIRI 

< -1 


[ CIRI 

LJ 

■n 


[ CIRI 
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{CYN} 
{PUR} 
{GRN} 
{BLU} 
{YEL} 

K 1>) 
[ < 2 > ] 
( < 3 > ) 
[<4>} 
i<5>} 
(< 6 >] 


CTRL 

i|T- 



CTRL 

hi 



i CTRL 

ih 



CTRL 

IO 



[ CTRL 

a 


ao 
a □ 
HO 
QO 
HO 
HO 



{<?>} 

i 

l<8>} 

□ 

{FI} 

□ 

{F2} 

Si 

{F3} 

□ 

{F4 } 

15 

{F5} 


{F6} 

to' 

{F7} 

E 

■1 

{F8} 


HO 

□ 

□ O 

■ ■ 
■ ■ 

m 

M 


21 

lh 

■ 

m 

ia 

ra 

il 

H3 

Bi 

W 

li 

H3 

■ 




té/'/l'J compilare il seguente tagliando: 


Per ricevere gli arretrati di 

K 

. - Compilare ed inviare in busta chiusa a: 

J.SOft viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome 


Indirizzo 


CAP 


Città 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 

dy'J'3 - 


dedicato a. 



Anno 

Anno_ 


a L. 2.000 cad. per un totale di L.a mezzo 


□ assegno allegato 


□ contanti allegati 


K 








































Fiammiferi 


Fiammiferi è un gioco molto po¬ 
polare che richiede abilità e 
astuzia per uscirne vincitori. 

In esso bisognerà battersi con¬ 
tro il computer. 

Il gioco prevede che ci siano un 
numero casuale di fiammiferi 
sullo schermo; a turno il gioca¬ 
tore e il computer possono 
prendere alcuni fiammiferi dal 
gruppo, ma non più di tre. 

La scopo del gioco è di lasciare 
all’avversario l'ultimo fiammife¬ 


1 REM FIAMMIFERI 

10 A=INT(RND(1)*8)+l5:B=36879 

20 C=36878:D=36875 

50 GOSUB200 

60 GOTO350 

100 IFA>1THENRETURN 

105 IFL=OTHENPRINT"{CLR}HO VINTO LA MANCHE":CS=CS+1 
110 IFL=1THENPRINT"{CLR}HAI VINTO LA MANCHE":PS=PS+1 
115 IFCS>40RPS>4THENG0SUBl500:GOTOl50 
120 PRINT:PRINT"{RVS}{BLK} PUNTEGGI AGGIORNATI:" 

125 PRINT:PRINT"VIC=";CS 

130 PRINT:PRINT"TU ="; PS ;"{BLU}" 

135 FORXX=1T03:GOSUBl 500 :NEXTXX 
140 A=INT(RND(1)* 8)+15 : RETURN 
150 PRINT"{CLR}" 

155 PRINT:PRINT"IL GIOCO E’ TERMINATO!" 

160 PRINT 

165 PRINT"{ 3 SPAZI}PUNTEGGI FINALI:" 

170 PRINT 

175 PRINT"VIC=";CS 
180 PRINT 

185 PRINT"TU =" ; PS 

190 GOTO!90 

200 PRINT"{CLR}" 

210 GOSUBl 000 
230 FORE=1TO10 


ro. 

La partita è divisa in varie man¬ 
che. 

Il vincitore di ciascuna manche 
si aggiudica un punto e-, chi per 
primo arriva ai cinque punti, ha 
vinto la partita. 

Il computer è un ottimo giocato¬ 
re e perciò per batterlo in que¬ 
sta "sfida all'ultimo fiammifero" 
bisogna essere molto astuti e 
preparati. 
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240 POKEB,30 
2 50 POKEC ,15 
260 POKED,250 

270 PRINT"{ 3 DES}** *FIAMMIFERI* * *" 

280 FORF=lTO200:NEXT 
290 POKEC,0 
300 POKED,0 
310 NEXTE 
320 RETURN 

350 IFRND(1)<.5THEN400 

360 GOTO500 

400 PRINT"{CLR}" 

410 GOSUBl000 

420 PRINT"CI SONO"; A;"FIAMMIFERI" 

430 PRINT"{ 3 GIU'lQUANTI NE PRENDI" 

440 INPUTY 

450 IFY<1ORY>3THENPRINT"NON BARARE 1":GOTO440 
470 A=A-Y:L=1 
480 GOSUBl 00 
500 PRINT"{CLR}" 

510 PRINT"{ 2 SPAZI}E' IL MIO TURNOPRINT 

530 GOSUBl000 

540 IFA=2THENM=1 

545 IFA=3THENM=2 

550 IFA=4THENM=3 

555 IFA= 5THENM=1 

560 IFA=6THENM=1 

565 IFA=7THENM=2 

570 IFA>7THENM=INT(RND(1)*3)+1 

605 PRINT"CI SONO"; A;"FIAMMIFERI":PRINT 

607 GOSUBl500 

610 PRINT" {GIU'}VOGLIO PRENDERNE-",*M 

620 GOSUBl500 
630 A=A-M:L=0 
640 GOSUBl00 
650 GOTO400 
1000 FORI=1TOA 
1010 POKE7988+G,81 
1020 POKE38708+G,2 
1030 GOSUBl200 
1 040 G=G+1 :NEXTI 
1045 G=0 
1050 FORI=lTOA 
1060 POKE8010+G,229 
1070 POKE38730+G,7 
1080 GOSUBl200 
1090 G=G+1:NEXTI 
1095 G=0 
1 1 00 FORI = lTOA 
1110 POKE8032+G,229 
1120 POKE38752+G,7 
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1130 GOSUBl200 
1140 G=G+1:NEXTI 
1150 G=0:RETURN 
1200 POKEC,15 
1210 POKED,250 
1 220 FORF=1TO20 :NEXT 
1230 POKEC,0 
1240 POKED,0 
1250 RETURN 

1 500 FORZ = lTOl 500 :NEXT 
1510 RETURN 


ieypaint 



8K ram - stamp. MPS 802 opz. 


Ti presentiamo in questo nume¬ 
ro un programma che trasforma 
il tuo VIC20 in un foglio da dise¬ 
gno, permettendoti di creare le 
tue opere d'arte e di renderle... 
immortali con la stampante Com¬ 
modore MPS 802. 

JOYPAINT è composto da due 
programmi: il primo sposta i 
puntatori del BASIC e carica 
automaticamente il secondo do¬ 
po essersi autocancellato. Se 
possiedi il Datassette questo pri¬ 
mo programma va digitato inal¬ 
terato e poi salvato, dopodiché 
puoi battere la seconda parte e 
registrarla subito dopo la prima. 
Se hai a disposizione il Disk Dri¬ 
ve togli al programmino carica¬ 
tore il GOTO30 alla linea 10, e 
salva il secondo programma 
chiamandolo JOYPAINT. 

Una volta dato il RUN al pro¬ 
gramma, viene visualizzato un 


menù che contiene le seguenti 
opzioni: 

LETTURA DISEGNO: serve a ri¬ 
chiamare nella memoria del tuo 
VIC20 un disegno precedente- 
mente salvato su disco o na¬ 
stro. 

REGISTRASZIONE DISEGNO: 
per salvare un disegno su nastro 
o disco. Usando il Disk Drive, fai 
attenzione perché la registrazio¬ 
ne di un file comporta la cancel¬ 
lazione di un eventuale altro file 
con lo stesso nome già presente 
sul disco. 

VISUALIZZAZIONE DISEGNO: 
permette di passare dal menù al¬ 
la pagina grafica. Quando sele¬ 
zioni questo comando puoi sce¬ 
gliere se cancellare il disegno 
precedente oppure lavorare an¬ 
cora su di esso. Per disegnare 
basta spostare il joystick in una 
delle direzioni possibili; pre- 
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mendo il pulsante si può " can¬ 
cellare" una parte del disegno 
semplicemente ripassandoci so¬ 
pra con il pixel-cursore. Per ritor¬ 
nare al menù sposta il joystick in 
su tenendo premuto il pulsan¬ 
te. 

HARD-COPY DISEGNO: trasferi¬ 


sce il disegno su carta in singola, 
doppia o tripla larghezza. L'op¬ 
zione, ripetiamo, funziona sola¬ 
mente con la stampante MPS 
802 . 

FINE: permette di ritornare al Ba¬ 
sic. 


CARICATORE 

10 A$=CHR$(34):POKE44, 32:POKE8192,0:PRINTCHR$(147):GOTO30 

20 PRINTCHR$(147)"LOAD”A$"JOYPAINT"A$",8" 

30 POKE631,19:POKE632,131 :POKEl98,2:NEW 

PROGRAMMA PRINCIPALE 

1 REM ************************ 


2 REM * * 

3 REM * "JOYPAINT" * 

4 REM * * 

5 REM * BY PAOLO VILLANI * 

6 REM * * 


7 REM ************************ 

14 REM 
1 5 REM 

18 POKEl98,3:POKE631 ,67 :POKE632,1 1 1 :POKE633,1 3 : STOP 

19 e$="*":Y=80:X=88 

20 Q$="" 

49 REM MENU' 

50 ZQ$ =CHR$(147) :PRINTZQ$CHR$(144) ; 

51 PRINTSPC(3)"*** JOYPAINT ** *":PRINT:PRINT 

53 PRINTSPC(2)"L: LETTURA":PRINTSPC(5)"DISEGNO":PRINT 

54 PRINTSPC(2)"R: REGISTRAZIONE":PRINTSPC(5)"DISEGNO":PRI 
NT 

55 PRINTSPC(2)"V: VISUALIZZAZIONE":PRINTSPC(5)"DISEGNO":P 
RI NT 

57 PRINTSPC(2)"P: HARD-COPY":PRINTSPC(5)"DISEGNO":PRINT 

58 PRINTSPC(2)"F: FINE":PRINT:PRINT 

59 PRINTSPC(2)"FIRE+JOYSTICK TOP :":PRINTSPC(5)"MENU'" 

60 GOSUB3700 

65 ON-(Q$="L")-2*(Q$ = "R")-3*(Q$ = "V")-4*(Q$ = "P")GOTO! 600,1 
800,200,1200 
68 IFQ$ = "F"THEN3800 
70 GOTO50 

200 PRINTZQ$:FORT=!T04:PRINT:NEXTT:FORT=lT022:PRINTCHR$(9 
6) ; :NEXTT 

205 PRINT:PRINT:PRINT:PRINT"VUOI CANCELLARE LA":PRINT"PAG 
INA GRAFICA (S/N)?" :P$ = "" 
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206 FORT=lT04:PRINT:NEXT:FORT=lT022:PRINTCHR$(96) ; :NEXT:F 
ORT=lT05:PRINTCHR$(145); :NEXT 
210 INPUTP$ 

299 REM PREPARAZIONE SCHERMO 

300 POKE36866,1 50 :POKE36869,240 :POKE648,30 

310 FORJ=217T0228:POKEJ,158 :NEXT:FORJ=229T0250 :POKEJ,159: 
NEXT 

320 POKE36865,44 :POKE36867,21 :POKE36869,252 :POKE36879 f 30 
330 FORI = 0TO219:POKE7680+I,I :NEXT 
333 CO=0 

335 FORI = 0TO219 :POKE38400 + 1,CO:NEXT 

340 IFP$ = "S"THENFOR1 = 4096TO7615 :POKEI,0 :NEXT 

349 REM LETTURA POSIZIONE JOYSTICK 

350 POKE371 39,0:POKE371 54,0:KK= 371 37:K2 = 37152 

370 IF(PEEK(KK)AND20)=0THENX=X-1:Y=Y-1:GOSUB3000:GOTO370 
380 IF(PEEK(KK)AND4)=0AND(PEEK(K2)ANDl28)=0THENX=X+1:Y=Y- 
1:GOSUB3000: GOTO370 

390 IF(PEEK(KK)AND2 4)=0THENX=X-1:Y=Y+1 :GOSUB3000:GOTO370 
400 IF(PEEK(KK)AND8)=0AND(PEEK(K2)ANDl28)=0THENX=X+1:Y=Y+ 
1 :GOSUB3000:GOTO370 

405 IF(PEEK(KK)AND36)=OTHENPOKE371 54,255 :POKE371 39,128:GO 
TO840 

410 IF(PEEK(KK)AND4)=0THENY=Y-1 :GOSUB3000:GOTO370 
420 IF(PEEK(KK)AND8)=0THENY=Y+1:GOSUB3000:GOTO370 
430 IF(PEEK(KK)ANDl6)=0THENX=X-1:GOSUB3000:GOT0370 
440 IF(PEEK(K2)ANDl28)=0THENX=X+1:GOSUB3000:GOTO370 
445 IF(PEEK(KK)AND32)=0THENGOSUB4000 
460 GOTO370 

840 POKE36865,38 :POKE36 867,46 :POKE36 869,240 :POKE36879,27 
850 PRINTCHR$(147) 

860 GOTO50 
898 END 

1199 REM HARD-COPY 

1 200 PRINTZQ$:FORT=lT07:PRINT:NEXT:PRINTCHR$(18) ;:FORT=lT 
022:PRINTCHR$(32) ; :NEXT:PRINT 
1210 PRINTSPC(1)"ACCENDI LA STAMPANTE" 

1220 PRINT:PRINTSPC(3)"POI PREMI RETURN" 

1 230 PRINT:PRINTCHR$(18) ; :FORT=lT022:PRINTCHR$(32) ; :NEXT: 
PRINT 

1 240 GETW$: IFW$ < >CHR$(13)THENl240 

1300 PRINTZQ$:FORT=lT04:PRINT:NEXT:PRINT"Fl = LARGHEZZA N 
ORMALE" 

1310 FORT=lT03:PRINT:NEXT:PRINT"F3 = LARGHEZZA DOPPIA" 
1320 FORT=1T04:PRINT:NEXT:PRINT"F5 = LARGHEZZA TRIPLA" 

1 325 GETJ$:IFJ$<CHR$(133)ORJ$>CHR$( 1 35)THENl 325 
1335 OPEN4,4 
1 337 PR'INT#4 

1 340 OPEN6,4,6:PRINT#6,CHR$(20) 

1 400 OZ-O:Q=0:FORRR=1TOl 0 
1405 FORL=lT02 
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1410 FORZ=4096+OZ+QTO4096+OZ-1+Q+351STEPl6 
1413 AA=1 2 8 
1415 FORI=ZTOZ+7 
1420 A=PEEK(I) 

1425 IF(AANDl28)<>0THENA(1)=A(1)+AA 
1430 IF(AAND64)OOTHENA (2)=A(2)+AA 
1435 IF(AAND32)<>0THENA(3)=A(3)+AA 
1 44 0 IF(AANDl 6)<>0THENA(4)=A(4)+AA 
1445 IF(AAND8)<>0THENA(5)=A(5)+AA 
1 4 50 IF (AAND4) OOTHENA (6) = A(6) +AA 
1 455 IF (AAND2) OOTHENA (7) =A ( 7 ) +AA 
1 4 60 IF (AANDl ) OOTHENA (8) = A ( 8 ) +AA 
1462 AA=AA/2 
1465 NEXTIrGOSUBl0000 
1470 NEXTZ 
1475 IFL=1THENQ=Q+8 
1 480 NEXTL:0Z=0Z + 352 :Q = 0:NEXTRR 
1 490 CL0SE4:CLOSE6:0PEN4,4,10 :PRINT#4:CLOSE4 
1500 PRINTZQ$:FORT=1T07:PRINT:NEXT:PRINTCHR$(18);:FORT=lT 
022 :PRINTCHR$(32); :NEXT:PRINT 
1510 PRINTSPC(2)"SPEGNI LA STAMPANTE" 

1520 PRINT:PRINTSPC(3)"POI PREMI RETURN" 

1 530 PRINT:PRINTCHR$(18) ; :F0RT=1T022:PRINTCHR$(32) ; :NEXT: 
PRINT 

1 540 GETW$ : IFW$OCHR$ (1 3) THENl 540 
1550 GOTO50 

1599 REM LETTURA 

1600 GOSUB17000 

1601 PRINTZQ$:PRINT"NASTRO O DISCO":INPUTOU$ 

1 602 PRINT"{ 2 GIU'}NOME DISTINTIVO DEL":PRINT"DISEGNO": I 
NPUTF$ 

1603 IFLEFT$(OU$,1)="N"GOTOl606 

1 604 OPEN2,8,15:0PEN1 ,8,3,F$+",S,R": INPUT#2,ER:IFER=62THE 
NI 2000 

1 605 GOTO1610 
1606 OPENl,1,0,F$ 

1610 FORS=4096TO7615 
1615 INPUT#1,A 
1620 POKES,A 
1625 NEXTS 
1 655 CLOSEl :CLOSE2 
1657 GOTO50 

1800 PRINTZQ$:PRINT"NASTRO O DISCO":INPUTIN$ 

1801 PRINT"{ 2 GIU’jNOME DISTINTIVO DEL":PRINT"DISEGNO": I 
NPUTF$ 

1803 IFLEFTS(IN$,1)="N"GOTOl805 

1804 OPENl,8,3,"@:"+F$+",S,W":GOTO!810 

1805 OPENl,1,1,F$ 

1810 R$ =CHR$ (13) 

1815 FORS=4096TO7615 
1 820 PRINT#! ,PEEK(S) 
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1825 NEXTS 
1 835 C LO SEI 
1840 GOTO50 

2999 REM SUBROUTINE DI TRACCIAMENTO 

3000 IFX>1750RX<OTHENGOSUBl5000 
3010 IFY>1590RY<OTHENGOSUBl6000 
3020 CH=INT(Y/l6)*22 + INT(X/8) 

3030 RO=(Y/l6-INT(Y/l6))*16:BY=4096+16*CH+RO 
3040 BI=7-(X-INT(X/8)*8):POKEBY,PEEK(BY)OR(2TBI) 

3050 IFE$ = "*"THENRETURN 

3240 POKEBY,PEEK(BY)AND(255-2TBI) 

3250 RETURN 
3700 Q$ = "" 

3702 GETQ$:IFQ$=""THEN3702 
3710 RETURN 

3799 REM FINE 

3800 PRINTZQ$CHR$(31) :POKE36879,27 : END 

3999 REM FLAG PRESSIONE FIRE 

4000 IFE$ = "*"THENE$ = "":GOSUB50 00: RETURN 
401 0 IFE$ = ""THENE$ = "*":GOSUB5000: RETURN 
4999 REM SEGNALE SONORO 

50 00 POKE36878,1 5:POKE36874,255 :FORT=lTOl00 

5010 NEXT:POKE3687 8,0 :POKE36874,0 :GOSUB3000: RETURN 

9999 REM STAMPA CARATTERI RIDEFINITI 

10000 OPEN5,4,5 

1 001 0 A$ = "":FORU =1TO 8 :A$ =A$ +CHR$(A(U)) :NEXTU 
10020 PRINT#5,A$ 

1 0030 IFJ$ =CHR$ (133) THENP$ = " { 29 SPAZI} " :LA$="" 

10040 IFJ$=CHR$(134)THENP$="{ 18 SPAZI}":LA$=CHR$(14) 
10050 IFJ$=CHR$(135)THENP$="{ 7 SPAZI}":LA$=CHR$(14)+CHR$ 
(14) 

1 0060 PRINT#4,P$;LA$;SP$;CHR$(254);CHR$(141) ; 

10070 SP$=SP$+" " 

1 0080 IFLEN(SP$)= 22THENSP$ = "":PRINT#4,CHR$(13) ; 

1 0090 CLOSE5:FORVP=lT08: A(VP)=0:U$ = "":NEXTVP: RETURN 
12000 PRINT"{CLR}FILE NON ESISTENTE":CLOSEl:CLOSE2:GOTOl6 
02 

14999 REM CONTROLLO USCITA MARGINI VERTICALI 
1 5000 IFX>1 75THENX = 0: RETURN 
15010 IFX<0THENX=175:RETURN 

15999 REM CONTROLLO USCITA MARGINI ORIZZONTALI 
1 6000 IFY>1 59THENY=0:RETURN 
16010 IFY<0THENY=1 59:RETURN 

16999 REM CANCELLAZIONE SCHERMO PRIMA DELLA LETTURA DEL F 
ILE 

1 7000 POKE36866,1 50 :POKE36869,240 :POKE648,30 
17010 FORJ = 217T0228:POKEJ,158:NEXT:FORJ = 229TO250:POKEJ,15 
9 :NEXT 

1 7020 POKE36865,44:POKE36867,21 :POKE36869,252:POKE36879,3 
0 

1 7030 FORI = 0TO219:POKE7680 + 1,1 :NEXT 
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17040 CO=0 

1 7050 FORI = 0TO219 : POKE38400 + 1,CO:NEXT 
1 7060 FORI=4096TO7615 :POKEI,0 :NEXT 

1 7070 POKE36865,38:POKE36867,46:POKE36869,2 40 :POKE3687 9,2 
7 

17080 PRINTCHR8(147) 

17090 RETURN 



Ecco a voi gli ultimi due pro¬ 
grammi della serie " Calendari" 
per Commodore 16; essi posso¬ 
no essere utilizzati solo da chi 
possiede una stampante. Ricor¬ 
diamo che gli altri due listati so¬ 
no stati pubblicati la settimana 
scorsa. 

Programma 3 - Consente la 
stampa su carta del calendario 
di un mese a scelta;■ il formato è 
gigantein modo che il foglio si 
possa appendere al muro. 


Programma 4 - Serve a neh 'esso 
a stampare su carta il calendario 
di un mese a scelta, ma questa 
volta II formato è quello di 
un'agenda, con lo spazio per 
segnare gli impegni e le scaden¬ 
ze di ogni giorno. 
IMPORTANTE: ricordatevi, 

usando questi programmi, di 
posizionare la carta in modo 
che il calendario venga stampa¬ 
to su un unico foglio e non a 
cavallo tra due fogli. 


PROGRAMMA 3 

1 GOTO!0 

5 El =1 :E2 = l:E3 = l:E4 = 1:E5 = 1:E6=1:E7 = 1 

6 GOSUB1109:D8 = D7-1: RETURN 

10 OPENl , 4 :COLORO f 2 :COLOR4,3,0 
20 GOSUB4000:GOSUB3200:PRINT#1 

30 ONM0GOSUB3010,3020,3030,3040,3050,3060,3070,3080,3090, 
3100,3110,3120 

40 PRINT#!:PRINT#1:GOSUBl610:GOSUBl650:GOSUBl660 
80 OND9GOSUB1 81 1 , 1 821 ,1 831 , 1 841 , 1 851 ,1 861 ,1 871 

99 PRINT#1,"":PRINT#1,"" 

100 Gl=D8 

105 G=Gl:GOSUBl720:Dl=D:El=E 
110 G2=G+1:G=G2:GOSUBl 720 :D2=D:E2=E 
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1 1 5 G3=G+1 :G=G3:GOSUBl 720 :D3=D:E3=E 
1 20 G4=G+1 :G=G4:GOSUBl 720 :D4=D:E4=E 
1 2 5 G5=G+1:G=G5:GOSUBl 720 :D5=D:E5=E 
1 30 G6=G+1 :G=G6:GOSUBl 720 :D6=D:E6=E 
1 35 G7=G+1 :G=G7:GOSUBl 720 :D7=D:E7=E 

140 Gl=G7 + 1 :GOSUBl109:PRINT#! ,"":PRINT#1 ,"":IFGl<=E9THENl 
05 

1 55 PRINT#! ,"" 

1000 GOTO5000 

1109 GOSUB2000:X=El:Xl=Dl:GOSUBl1000 

1120 X=E2:Xl=D2:GOSUBl1000 

1130 X=E3:Xl=D3:GOSUBl1000 

1140 X=E4:Xl=D4:GOSUBl1000 

1150 X=E5:Xl=D5:GOSUBl1000 

1160 X=E6:Xl=D6:GOSUBl1000 

1170 X=E7:Xl=D7:FL=1:GOSUBl1000 

1209 GOSUB2000:X=El:Xl=Dl:GOSUBl2000 

1220 X=E2:Xl=D2:GOSUBl2000 

1230 X=E3:Xl=D3:GOSUBl2000 

1240 X=E4:Xl=D4:GOSUBl2000 

1250 X=E5:Xl=D5:GOSUBl2000 

1260 X=E6:Xl=D6:GOSUBl2000 

1270 X=E7:Xl=D7:FL=1:GOSUBl2000 

1 309 GOSUB2000:X=El:Xl=Dl:GOSUBl 3000 

1320 X=E2:Xl=D2:GOSUBl3000 

1330 X=E3:Xl=D3:GOSUBl3000 

1340 X=E4:Xl=D4:GOSUBl3000 

1350 X=E5:Xl=D5:GOSUBl3000 

1360 X=E6:Xl=D6:GOSUBl3000 

1 370 X=E7:Xl=D7:FL=1 :GOSUBl 3000 

1 409 GOSUB2000:X=El:Xl=Dl:GOSUBl 4000 

1420 X=E2:Xl=D2:GOSUBl4000 

1430 X=E3:Xl=D3:GOSUBl4000 

1440 X=E4:Xl=D4:GOSUBl4000 

1450 X=E5:Xl=D5:GOSUBl4000 

1460 X=E6:Xl=D6:GOSUBl4000 

1470 X=E7:Xl=D7:FL=1:GOSUBl4000 

1509 GOSUB2000:X=El:Xl=Dl:GOSUBl5000 

1520 X=E2:Xl=D2:GOSUBl5000 

1530 X=E3:Xl=D3:GOSUBl5000 

1540 X=E4:Xl=D4:GOSUBl5000 

1550 X=E5:Xl=D5:GOSUBl5000 

1560 X=E6:Xl=D6:GOSUBl5000 

1570 X=E7:Xl=D7:FL=1:GOSUBl5000 

1600 RETURN 

1610 PRINT#!#"{i 5 SPAZI}";:PRINT#1 ,CHR$(14)"DOM"; :PRINT#! 
,CHR$(15)"( 5 SPAZI}"; 

1611 PRINT#1 ,CHR$(14)"LUN"; :PRINT#1 r CHR$(15)"{ 5 SPAZI}" 

1612 PRINT#!,CHR$(14)"MAR";:PRINT#1,CHR$(15)"{ 5 SPAZI}"; 
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1613 PRINT#! ,CHR$(14)"MER";:PRINT#1 ,CHR$(15)"{ 5 SPAZI}"; 

1614 PRINT#!,CHR$(14)"GIO";:PRINT#1,CHR$(15)"{ 5 SPAZI}"; 

1615 PRINT# 1 ,CHR$(14)"VEN"; :PRINT#1 ,CHR$(15)"{ 5 SPAZI}"; 

1616 PRINT# 1 ,CHR$ (14) "SAB" : PRINT# 1 , CHR$ (15)" " 

1 620 PRINT# 1 { 5 SPAZI}";:PRINT#1 ,CHR$(14)"-";:PRINT#1 

,CHR$ (1 5)"{ 5 SPAZI}"; 

1621 PRINT#1 ,CHR$(1 4)"-"; :PRINT#! ,CHR$( 1 5)"{ 5 SPAZI}"; 

1 622 PRINT#! ,CHR$(14)"-"; :PRINT#1 ,CHR$(15)"{ 5 SPAZI}"; 

1 623 PRINT#! ,CHR$(14)"-"; :PRINT#! ,CHR$(15)"{ 5 SPAZI}"; 

1 624 PRINT#1 /CHR$(14)"-"; :PRINT#! ,CHR$(15)"{ 5 SPAZI}"; 

1625 PRINT#! f CHR$(14)"-"; :PRINT#1 ,CHR$(15)"{ 5 SPAZI}"; 

1626 PRINT#!,CHR$(14)"-":PRINT#1,CHR$(15)" ":RETURN 

1650 IFM0=1ORMO=30RMO=50RMO=70RMO=80RMO=10ORM0=l2THENE9=3 
1 

1652 IFMO=40RMO=60RMO=90RMO=11THENE9=30 
1654 IFM0=2ANDY/4<>INT(Y/4)THENE9=28 
1656 IFM0=2ANDY/4=INT(Y/4)THENE9=29 
1658 RETURN 

1660 IFM0=1THENM0=13:Y=Y-1:GOTOl670 
1665 IFM0 = 2THENM0 = 14 :Y = Y-1 
1670 M=M0-2 

1675 D9=INT(2.6*M-0.2)+D+Y-1900+INT((Y-l900)/4) 

1680 D9=D9+INT(19/4)-2*19 

1685 D9=D9-INT(D9/7)*7+1 

1690 IFMO=40RMO=9THEND9=D9+1 

1695 IFM0=13THENM0=1:Y=Y+1:GOTOl710 

1700 IFM0=14THENM0=2:Y=Y+1:D9=D9+1 

1705 IFD9=8THEND9=1 

1710 IF(Y=2100ANDM0> = 3)OR(Y>2100)THEND9=D9-1 :IFD9 = 0THEND9 
= 7 

1711 IF(Y=22 00ANDM0> = 3)OR(Y> 2200)THEND9=D9-1 :IFD9 = 0THEND9 
= 7 

1712 IF(Y=2300ANDM0> = 3)OR(Y>2300)THEND9=D9-1 :IFD9 = 0THEND9 
= 7 

1715 RETURN 

1720 IFG>E9THENl740 

1722 IFG<1OTHENl742 

1726 IFG>=10ANDG<20THEN1746 

1728 IFG>=20ANDG<30THEN1748 

1730 IFG>=30THEN1750 

1740 D=1:E=1:GOTOl755 

1742 D=G+2:E=1:GOTOl755 

1 746 D=G-8 :E=2: GOTO!755 
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1748 D=G-18:E=3:GOTOl755 
1 750 D=G-28 :E=4 
1755 RETURN 

1811 Di=1:D2 = 3:D3 = 4:D4 = 5:D5=6:D6=7:D7 = 8:GOSUB5: RETURN 
1821 Di=1:D2 = 1:D3=3:D4=4:D5=5:D6=6:D7=7:GOSUB5: RETURN 
1831 Di=1 :D2 = 1:D3 = 1:D4 = 3 :D5 = 4:D6 = 5:D7 = 6:GOSUB5: RETURN 

1841 Di=1:D2 = 1:D3 = 1:D4 = 1:D5 = 3:D6 = 4:D7 = 5:GOSUB5: RETURN 
1851 Di=1 :D2 = 1:D3 = 1:D4 = 1:D5=1:D6 = 3:D7 = 4:GOSUB5: RETURN 
1861 Di=1:D2=1:D3=1:D4=1:D5=1:D6=1:D7=3:GOSUB5:RETURN 
1871 Di=3:D2 = 4:D3 = 5:D4 = 6:D5=7:D6 = 8:D7=9:GOSUB5: RETURN 

2000 PRINTtl,"} 4 SPAZI}”;: RETURN 

2001 PRINT#1," [< 2 +>] "; : RETURN 

2002 PRINT#1,"[<+>]{ 2 SPAZI}[<+>]";:RETURN 

2003 PRINTtl,"[<+>]{ 2 SPAZI}[<+>]";:RETURN 

2004 PRINTtl,"[<+>]{ 2 SPAZI}[<+>]";:RETURN 

2005 PRINT#1 ," [< 2 +>] "; : RETURN 

2011 PRINT#1 ,"[< + >] { 2 SPAZI}"; : RETURN 

2012 PRINTtl,"[<+>]{ 2 SPAZI}";-.RETURN 

2013 PRINTtl,"[<+>]{ 2 SPAZI}";:RETURN 

2014 PRINTtl,"[<+>]{ 2 SPAZI}";:RETURN 

2015 PRINTtl,"[<+>]{ 2 SPAZI}";IRETURN 

2021 PRINTtl," [< 2 + >] "; : RETURN 

2022 PRINTtl,"[<+>]{ 2 SPAZI}[<+>}";:RETURN 

2023 PRINTtl,"} 2 SPAZI}[< + >] "; : RETURN 

2024 PRINTtl," [<+>]{ 2 SPAZI}";:RETURN 

2025 PRINTtl,"[< 4 +>]";:RETURN 

2031 PRINTtl,"[< 3 +>] "; : RETURN 

2032 PRINTtl,"} 3 SPAZI}[<+>]";:RETURN 

2033 PRINTtl," [< 2 +>] "; : RETURN 

2034 PRINTtl,"} 3 SPAZI}[<+>]";:RETURN 

2035 PRINTtl,"[< 3 +>] "; : RETURN 

2041 PRINTtl,"} 2 SPAZI}[< + >] "; : RETURN 

2042 PRINTtl," [< 2 +>] "; : RETURN 

2043 PRINTtl,"[< + >] [< + >] "; : RETURN 

2044 PRINTtl,"[< 4 +>]";:RETURN 

2045 PRINTtl,"} 2 SPAZI}[<+>] "; : RETURN 

2051 PRINTtl,"[< 4 +>]";:RETURN 

2052 PRINTtl,"[<+>]{ 3 SPAZI}";:RETURN 

2053 PRINTtl,"[< 3 +>] ";:RETURN 

2054 PRINTtl,"} 3 SPAZI}[<+>]";:RETURN 

2055 PRINTtl,"[< 3 +>] "; : RETURN 

2061 PRINTtl," [< 2 +>] "; : RETURN 

2062 PRINTtl,"[<+>]{ 3 SPAZI}";:RETURN 

2063 PRINTtl,"[< 3 +>] "; : RETURN 

2064 PRINTtl,"[<+>]{ 2 SPAZI}[<+>]";:RETURN 

2065 PRINTtl," [< 2 +>] ";:RETURN 

2071 PRINTtl,"[< 4 +>]";:RETURN 

2072 PRINTtl,"} 3 SPAZI}[<+>]";:RETURN 

2073 PRINTtl,"} 2 SPAZI}[< + >] "; : RETURN 

2074 PRINTtl," [<+>}{ 2 SPAZI}"; : RETURN 

2075 PRINTtl," [<+>]{ 2 SPAZI}"; : RETURN 
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2081 PRINT#! ," [< 2 + >] "; : RETURN 

2082 PRINT#1,"[<+>]{ 2 SPAZI}[<+>]";iRETURN 

2083 PRINT#1 , " [< 2 +>] "; : RETURN 

2084 PRINT#1 ,"[< + >l { 2 SPAZI}[< + >]";:RETURN 

2085 PRINT#1 , " [< 2 +>] "; : RETURN 

2091 PRINT#!,’’ [< 2 +>] RETURN 

2092 PRINT#1 ,"[< + >] { 2 SPAZI }[< + >]’’;:RETURN 

2093 PRINT#!," [< 3 +>]";:RETURN 

2094 PRINT#!,"{ 3 SPAZI}[<+>]";sRETURN 

2095 PRINT#!,’’ [< 2 +>] ’’;-.RETURN 

2111 PRINT#!,"{ 2 SPAZI} [<+>] "; :RETURN 

2112 PRINT#!,"{ 2 SPAZI}[< + >] "; : RETURN 

2113 PRINT#!, "{ 2 SPAZI} [< + >] ’’; -.RETURN 

2114 PRINT#!, "{ 2 SPAZI} [< + >] ’’;:RETURN 

2115 PRINT#!,"{ 2 SPAZl}[< + >] ’’;:RETURN 

3010 GOSUB2000:PRINT# 1 ," [< 3 +>]{ 2 SPAZI}[< 5 +>] [<+>] 

{ 3 SPAZI}[<+>]" 

3011 GOSUB2000:PRINT#1 ,"[< + >] { 5 SPAZI} [< + >]{ 5 SPAZI} 

[< 2 +>]{ 2 SPAZI}[<+>]" 

3012 GOSUB2000:PRINT#1,"[<+>]{ 2 SPAZI}[< 2 +>] [< 4 +>] 

{ 2 SPAZI} [< + >] [< + >] [< + >}’’ 

3013 GOSUB2000:PRINT#1,"[<+>]{ 3 SPAZI}[<+>] [<+>] 

{ 5 SPAZI}[<+>]{ 2 SPAZI}[< 2 +>]" 

3014 GOSUB2000:PRINT#1," [< 3 +>]{ 2 SPAZI}[< 5 +>] [<+>] 

{ 3 SPAZI}[<+>]" 

3015 RETURN 

3020 GOSUB2000:PRINT#! ,"[< 5 +>] [< 5 +>] [< 4 +>] " 

3021 GOSUB2000:PRINT#1,"[<+>]{ 5 SPAZI}[<+>]{ 5 SPAZI} 

[< + >] { 3 SPAZI}[<+>] " 

3022 GOSUB2000:PRINTtl,"[< 3 +>]{ 3 SPAZI}[< 4 +>] 

{ 2 SPAZI}[< 4 +>] " 

3023 GOSUB2000:PRINT#1,"[<+>]{ 5 SPAZI}[<+>}{ 5 SPAZI} 
[<+>]{ 3 SPAZI}[<+>]" 

3024 GOSUB2000:PRINT#1,"[<+>]{ 5 SPAZI}[< 5 +>] [< 4 +>] 

It 

3025 RETURN 

3030 GOSUB2000:PRINT#!,"[<+>]{ 3 SPAZI}[<+>]{ 2 SPAZI} 

[< 3 +>]{ 2 SPAZI}[< 4 +>] " 

3031 GOSUB2000:PRINT# 1 ,"[< 2 +>] [< 2 +>] [< + >] 

{ 3 SPAZI}[<+>] [<+>]{ 3 SPAZI}[<+>]" 

3032 GOSUB2000:PRINT# 1 ," [< + >] [<+>] [<+>] [< + >] 

{ 3 SPAZI}[<+>] [< 4 +>] " 

3033 GOSUB2000:PRINT#1,"[ < + > ] [<+>] [<+>] [< 5 +>] [<+>] 

{ 2 SPAZI}[<+>] " 

3034 GOSUB2000:PRINT#1,"[<+>}{ 3 SPAZI}[<+>] [<+>] 

{ 3 SPAZI}[<+>] [<+>]{ 3 SPAZI}[<+>]" 

3035 RETURN 

3040 GOSUB2000:PRINT#!," [< 3 +>]{ 2 SPAZI}[< 4 +>] 

{ 2 SPAÌI}[< 4 +>} " 

3041 GOSUB2000:PRINT#1 ,"[< + >] { 3 SPAZI}[< + >] [< + >} 

{ 3 SPAZI}[<+>] [<+>]{ 3 SPAZI}[<+>]" 
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3042 GOSUB2000:PRINT#1,"[<+>]{ 3 SPAZI}[<+>] [< 4 +>] 

{ 2 SPAZI}[< 4 +>] " 

3043 GOSUB2000:PRINT#1[< 5 +>] [<+>]{ 5 SPAZI}[<+>] 

{ 2 SPAZI}[<+>] " 

3044 GOSUB2000:PRINT#1[<+>]{ 3 SPAZI}[<+>] [<+>] 

{ 5 SPAZI}[<+>]{ 3 SPAZI}[<+>]" 

3045 RETURN 

3050 GOSUB2000:PRINT#1,"[<+>]{ 3 SPAZI}[<+>]{ 2 SPAZI} 

[< 3 +>]{ 3 SPAZI}[< 3 + >] " 

3051 GOSUB2000:PRINT# 1 , " [< 2 +>] [< 2 +>] [< + >] 

{ 3 SPAZI}[<+>] [<+>]{ 4 SPAZI}" 

3052 GOSUB2000:PRINT#!,"[<+>] [<+>] [<+>] [<+>] 

{ 3 SPAZI}[<+>] [<+>]{ 2 SPAZI}[< 2 +>]" 

3053 GOSUB2000:PRINT#1,"[<+>] [<+>] [<+>] [< 5 +>] [<+>] 

{ 3 SPAZI}[<+>]" 

3054 GOSUB2000:PRINT#! ,"[<+>] { 3 SPAZI}[< + >] [< + >] 

{ 3 SPAZI}[<+>]{ 2 SPAZI}[< 3 +>] " 

3055 RETURN 

3060 GOSUB2000:PRINT#! [< 3 +>] { 2 SPAZI}[< 3 +>] [<+>] 

{ 3 SPAZI}[<+>]" 

3061 GOSUB2000:PRINT#!,"[<+>]{ 6 SPAZI}[<+>]{ 2 SPAZI} 
[<+>]{ 3 SPAZI}[<+>]" 

3062 GOSUB2000:PRINT#1,"[<+>]{ 2 SPAZI}[< 2 +>] 

{ 2 SPAZI}[<+>]{ 2 SPAZI}[<+>]{ 3 SPAZI}[<+>]" 

3063 GOSUB2000:PRINT#1,"[<+>]{ 3 SPAZI}[<+>]{ 2 SPAZI} 
[<+>]{ 2 SPAZI}[<+>]{ 3 SPAZI}[<+>]" 

3064 GOSUB2000:PRINT# 1 ," [< 3 +>] { 2 SPAZI}[< 3 +>] 

{ 2 SPAZI}[< 3 +>] " 

3065 RETURN 

3070 GOSUB2000:PRINT#!,"[<+>]{ 5 SPAZI}[<+>]{ 3 SPAZI} 
[<+>]{ 2 SPAZI}[< 3 +>] " 

3071 GOSUB2000:PRINT#1 ,"[< + >] { 5 SPAZI} [< + >]{ 3 SPAZI} 

[< + >] [< + >] { 4 SPAZI}" 

3072 GOSUB2000:PRINT#1 ,"[< + >] { 5 SPAZI} [< + >]{ 3 SPAZI} 

[<+>] [<+>]{ 2 SPAZI}[< 2 +>]" 

3073 GOSUB2000:PRINT#1,"[<+>]{ 5 SPAZI}[<+>]{ 3 SPAZI} 

[<+>] [<+>]{ 3 SPAZI}[<+>]" 

3074 GOSUB2000:PRINT#1,"[< 5 +>]{ 2 SPAZI}[< 3 +>] 

{ 3 SPAZI}[< 3 +>] 

3075 RETURN 

3080 GOSUB2000:PRINT#1 [< 3 +>]{ 3 SPAZI}[< 3 +>] 

{ 3 SPAZI}[< 3 +>] " 

3081 GOSUB2000:PRINT#1,"[<+>]{ 3 SPAZI}[<+>] [<+>] 

{ 5 SPAZI}[<+>]{ 3 SPAZI}[<+>]" 

3082 GOSUB2000:PRINT#!,"[<+>]{ 3 SPAZI}[<+>] [< + >] 

{ 2 SPAZI}[< 2 + >] [<+>]{ 3 SPAZI}[<+>]" 

3083 GOSUB2000:PRINT#1,"[< 5 +>] [<+>]{ 3 SPAZI}[<+>] 

[<+>]{ 3 SPAZI}[<+>]" 

3084 GOSUB2000:PRINT#1,"[<+>]{ 3 SPAZI}[<+>]{ 2 SPAZI} 

[< 3 +>]{ 3 SPAZI}[< 3 +>] " 

3085 RETURN 
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3090 GOSUB2000:PRINT#!/" [< 4 +>] [< 5 +>] [< 5 +>]" 

3091 GOSUB2000:PRINT#1,"[<+>]{ 5 SPAZI}[<+>]{ 7 SPAZI} 
[<+>]{ 2 SPAZI}" 

3092 GOSUB2000:PRINT#![< 3 +>]{ 2 SPAZI}[< 4 + >] 

{ 4 SPAZI}[<+>]{ 2 SPAZI}" 

3093 GOSUB2000:PRINT#!, " { 4 SPAZI}[<+>] [<+>]{ 7 SPAZI} 

[<+>]{ 2 SPAZI}" 

3094 GOSUB2000:PRINT#![< 4 +>]{ 2 SPAZI}[< 5 +>] 

{ 3 SPAZI}[<+>]{ 2 SPAZI}" 

3095 RETURN 

3100 GOSUB2000:PRINT#![< 3 +>]{ 2 SPAZI}[< 5 +>] 

[< 5 +>]" 

3101 GOSUB2000:PRINT#1,"[<+>]{ 3 SPAZI}[<+>]{ 3 SPAZI} 
[<+>]{ 5 SPAZI}[<+>]{ 2 SPAZI}" 

3102 GOSUB2000:PRINT#1,"[<+>]{ 3 SPAZI}[<+>]{ 3 SPAZI} 
[<+>]{ 5 SPAZI}[<+>]{ 2 SPAZI}" 

3103 GOSUB2000:PRINT#1,"[<+>]{ 3 SPAZI}[<+>]{ 3 SPAZI} 
[<+>]{ 5 SPAZI}[<+>]{ 2 SPAZI}" 

3104 GOSUB2000:PRINT#1[< 3 +>]{ 4 SPAZI}[<+>] 

{ 5 SPAZI}[<+>]{ 2 SPAZI}" 

3105 RETURN 

3110 GOSUB2000:PRINT#1,"[<+>]{ 3 SPAZI}[<+>]{ 2 SPAZI} 

[< 3 +>]{ 2 SPAZI}[<+>]{ 3 SPAZI}[<+>]" 

3111 GOSUB2000:PRINT#!,"[< 2 +>]{ 2 SPAZI}[<+>] [<+>] 

{ 3 SPAZI}[<+>] [<+>]{ 3 SPAZI}[<+>]" 

3112 GOSUB2000:PRINT#1,”[<+>] [< + >] [<+>] [<+>] 

{ 3 SPAZI}[<+>] [<+>]{ 3 SPAZI}[<+>]" 

3113 GOSUB2000:PRINT#1,"[<+>]{ 2 SPAZI}[< 2 +>] [<+>] 

{ 3 SPAZI}[<+>]{ 2 SPAZI}[<+>] [<+>] " 

3114 GOSUB2000:PRINT#1,"[<+>]{ 3 SPAZI}[<+>]{ 2 SPAZI} 

[< 3 +>]{ 4 SPAZI}[<+>]{ 2 SPAZI}" 

3115 RETURN 

3120 GOSUB2000:PRINT#!,"[< 4 +>]{ 2 SPAZI}[< 3 + >] 

{ 2 SPAZI}[< 3 +>]{ 2 SPAZI}" 

3121 GOSUB2000:PRINT#1,"[<+>]{ 3 SPAZI}[<+>]{ 2 SPAZI} 
[<+>]{ 2 SPAZI}[<+>]{ 3 SPAZI}[<+>] " 

3122 GOSUB2000:PRINT#1,"[<+>]{ 3 SPAZI}[<+>]{ 2 SPAZI} 
[<+>]{ 2 SPAZI}[<+>]{ 5 SPAZI}" 

3123 GOSUB2000:PRINT#1,"[<+>]{ 3 SPAZI}[<+>]{ 2 SPAZI} 

[<+>]{ 2 SPAZI}[<+>]{ 3 SPAZI}[<+>] " 

3124 GOSUB2000:PRINT#1,"[< 4 +>]{ 2 SPAZI}[< 3 +>] 

{ 2 SPAZI}[< 3 +>]{ 2 SPAZI}" 

3125 RETURN 

3200 II=INT(Y/1 000) :Jl =Y-Il*1000:12 = INT(Jl/100):J2=Jl -12* 
100 :I3 = INT(J2/10) 

3210 I4=J2-I3*10 

3211 IFI2 = 0THENI2 = 10 

3212 IFI3=0THENI3=10 

3213 IFI4=0THENI4=10 

3214 GOSUB2000:X=I1:GOSUB6000:GOSUB2000:X=12:GOSUB6000:GO 
SUB2000:X=I3 :GOSUB6000 
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3215 GOSUB2000:X=I4:FL=1:GOSUB6000 

3314 GOSUB200 0:X=Il:GOSUB7000 :GOSUB2000:X=I2 :GOSUB7000:GO 
SUB2000:X=I3:GOSUB7000 

3315 GOSUB2000 :X=I4:FL=1:GOSUB7000 

3414 GOSUB2000:X=Il:GOSUB8000:GOSUB2000:X=12 :GOSUB8000:GO 
SUB2000:X=I3 :GOSUB8000 

3415 GOSUB2000:X=I4:FL=1:GOSUB8000 

3514 GOSUB2000:X=Il :GOSUB9000:GOSUB2000:X=12 :GOSUB9000:GO 
SUB2000:X=I3:GOSUB9000 

3515 GOSUB2000:X=14 :FL=1:GOSUB9000 

3614 GOSUB2000:X=11 :GOSUBl 0000:GOSUB2000:X=I2:GOSUBl 0000 : 
GOSUB2000:X=I3 

3615 GOSUBl 0000 :GOSUB2000:X=14 :FL=1 :GOSUBl 0000:RETURN 
4000 PRINT"{CLR}[<7>]{GIU'}{DES}QUESTO PROGRAMMA STAMPA U 

N {PUR}CALENDARIO" 

4020 PRINT"{DES}MENSILE[<7>]." 

4030 PRINT"{GIU'}{DES}IMPOSTA IL {RED}MESE[<7>] E L'{RED} 
ANNO[<7>]" 

4035 PRINT"{DES}CHE VUOI STAMPARE (ESEMPIO: {RED}6,1985 
[<7>] ) {PURHGIU' } " : PRINT" {DES} " ; 

4060 INPUTM0,Y 

4080 PRINT"{ 2 GIU'}{DES}[<7>]GRAZIE! ADESSO {PUR}ACCENDI 
[<7>] LA STAMPANTE" 

4085 PRINT"{DES}E POI SCRIVI {PUR}OK{GIUINPUT"{DES}"; 
R$ 

4110 IFR$0"OK"THEN40 80 

4130 PRINT"{GIU'}{DES} [<7>]STAMPA{GIU'}":FORI = lT0800:NEXT 
: RETURN 

4999 PRINT#1 f CHR$ (15)" " 

5000 GOSUBl620 

5001 CLOSEl : END 

6000 ONXGOSUB201 1 ,2021 ,20 31 ,2041 ,2051 ,2061 ,2071 ,2081 ,2091 
,2001 

6010 IFFLOl THENPRINT#! " ; : RETURN 
6020 PRINT#1 ,"":FL=0: RETURN 

7000 ONXGOSUB2012,2022,2032,2042,2052,2062,2072,2082,2092 
,2002 

7010 IFFLOl THENPRINT#! ," " ; : RETURN 
7020 PRINT#!,"":FL=0:RETURN 

8000 ONXGOSUB201 3,202 3,2033,204 3,20 53,2063,2073,2083,2093 
,2003 

8010 IFFLOl THENPRINT#! ," " ; : RETURN 
8020 PRINT#1 ,"":FL=0: RETURN 

9000 ONXGOSUB2014,2024,2034,2044,2054,2064,2074,2084,2094 
,2004 

9010 IFFLOl THENPRINT#! ," " ; : RETURN 
9020 PRINT#!,"":FL=0:RETURN 

1 0 000 ONXGOSUB201 5,202 5,203 5,2 04 5,2055,20 65,2075,2085,209 
5,2005 

10010 IFFLOl THENPRINT#! ," RETURN 
10020 PRINT#!,"":FL=0:RETURN 
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1 1 000 ONXGOSUB2000,21 1 1 ,2021 ,2031 :PRINT#1 , " 

11010 ONXlGOSUB2000,2001,201 1 ,2021 , 2031,2041,2051,2061,20 
71 ,2081 ,2091 

1 1 020 IFFLOl THENPRINT#1 2 SPAZI RETURN 

11030 FL=0:PRINT#1RETURN 

12000 ONXGOSUB2000,2112,2022,2032:PRINT#!," 

12010 ONXlGOSUB2000,2002,2012,2022,2032,2042,2052,2062,20 

72.2082.2092 

12020 IFFL<>1THENPRINT#1,"{ 2 SPAZIRETURN 

12030 FL=0:PRINT#1RETURN 

13000 ONXGOSUB2000,2113,2023,2033:PRINT#1," 

13010 ONXlGOSUB2000,2003,2013,2023,2033,2043,2053,2063,20 

73.2083.2093 

1 3020 IFFLOl THENPRINT#! ,"{ 2 SPAZ I} " ; : RETURN 
13030 FL=0:PRINT#1RETURN 

14000 ONXGOSUB2000,2114,2024,2034:PRINT#!," "; 

14010 ONXlGOSUB2000,2004,2014,2024,2034,2044,2054,2064,20 

74.2084.2094 

1 4020 IFFLOl THENPRINT#! ,"{ 2 SPAZ I} " ; : RETURN 
14030 FL=0:PRINT#!RETURN 

15000 ONXGOSUB2000,2115,2025,2035:PRINT#1," " ; 

15010 ONXlGOSUB2000,2005,2015,2025,2035,2045,2055,2065,20 

75.2085.2095 

1 5020 IFFLOl THENPRINT#! ," { 2 SPAZI} " ; : RETURN 
15030 FL=0:PRINT#1RETURN 

PROGRAMMA 4 

80 DIMM$(12) ,W$(7) :FORI = lTOl2:READM$(I) :NEXTI: FORI = 1T07:R 
EADW$(I):NEXTI 
90 COLORO,2:COLOR4,3,0 

100 PRINT"{CLR}[<7>]{GIU'}{DES}QUESTO PROGRAMMA STAMPA UN 
{PURjCALENDARIO" 

1 05 PRINT"{DES}MENSILE[<7>] .{GIU' }" 

110 PRINT"{DES}IMPOSTA IL {RED}MESE[<7>] E LMREDJANNO 
[ < 7 > ] " 

111 PRINT"{DES}CHE VUOI STAMPARE (ESEMPIO: {RED}6,1985 
[<7>]){PUR}{ 2 GIU'}" 

120 PRINT"{DES}";:INPUTM0,Y 

130 PRINT"{ 2 GIU’}{DES}[<7>]GRAZIE! ADESSO {PURjACCENDI 
[<7>] LA STAMPANTE" 

131 PRINT"{DES}E POI SCRIVI {PUR}OK{GIU'}":INPUT"{DES}";R 

$ 

151 IFR$O"0K"THENl 30 

1 54 PRINT"{GIU'}{DES} [<7>]STAMPA{GIU'}":FORI = 1TO800:NEXT: 
GOSUBl 292:OPENl ,4 

202 PRINT#! ,CHR$(14)"{ 3 SPAZI}";M$(M0) ;" ";Y:GOSUBl 600 :G 
OSUBl 7 0 0 : FORD = 1TOE1 :Jl=Jl+l 
210 GOSUBl050:IFD<10THENG$=" " 

213 IFD>=10THENG$="" 

214 IFDl=1 THENPRINT#1 ,CHR$(1 5)"{ 3 SPAZI}"W$(Di ) ;CHR$(14) 
G$;"{RVS}"D"{OFF}";CHR$(15)"(";Jl ;") " 
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215 IFDl=1THENGOSUBl600 
217 IFDl =1THEN220 

219 PRINT#!,CHR$(15)"{ 3 SPAZI}"W$(Di);CHR$(14)G$;D;CHR$( 
15)"("; Jl;")":GOSUBl600 

220 NEXTD 

1 000 CLOSEl : END 

1 0 50 IFM0=1THENM0=13 :Y = Y-1 :GOTOl080 
1060 IFM0 = 2THENM0 = 14 :Y=Y- 1 
1080 M=M0-2 

1100 Di = INT.( 2.6*M-0.2) +D+Y- 1 900 + INT ( (Y-1 900)/4) 

1150 Di =Dl+INT(l9/4)-2*19 
1200 Dl=Dl-INT(Dl/7)*7+1 
1210 IFM0=4ORM0=9THENDl=Dl+1 
1 230 IFM0 = 13THENM0=1 :Y=Y+1 :GOTOl245 
1 240 IFM0 = 14THENM0 = 2 :Y=Y+1:Dl=Dl+l 
1244 IFDl=8THENDl=1 

1 24 5 IF(Y=2100ANDM0> = 3)OR(Y>2100)THENDl=Dl-1 :IFDl=0THENDl 
= 7 

1 247 IF(Y=2200ANDM0> = 3)OR(Y> 22 00)THENDl=Dl-1 :IFDl=0THENDl 
= 7 

1 249 IF(Y=2300ANDM0>=3)OR(Y>2300)THENDl=Dl -1 :IFDl=0THENDl 
= 7 

1250 RETURN 

1292 IFM0=lORM0=3ORM0=5ORM0=7ORM0=8ORM0=l0ORM0=l2THENE1=3 
1 

1 293 IFMO = 40RMO = 60RMO = 90RMO = 11 THENEI=30 
1 294 IFM0 = 2ANDY/4OINT ( Y/4 ) THENEl =28 

1295 IFM0=2ANDY/4=INT(Y/4)THENGOSUBl400 

1296 RETURN 

1 400 IF ( Y/l 00 = INT ( Y/l 00) ) AND (Y/400OINT (Y/400) )THENEl=28: 

GOTOl410 
1405 El=29 
1410 RETURN 

1600 FORI=lTO20:PRINT#1,CHR$(15)" ";:NEXTI 

1 605 FORK=lTOl8:PRINT#1 " J " :NEXTK:PRINT#! " 

1610 RETURN 

1700 IFM0=1THENJl=0 

1702 IFM0=2THENJl=31 

1704 IFM0=3THENJ1=59 

1706 IFM0=4THENJl=90 

1707 IFM0=5THENJl=120 
1709 IFM0=6THENJl=151 
1711 IFM0=7THENJ1=181 
1713 IFM0=8THENJ1=212 
1715 IFM0=9THENJ1=243 
1717 IFM0=10THENJ1=273 
1719 IFM0=11THENJl=304 
1721 IFM0=12THENJ1=334 

1723 IFY/4<>INT(Y/4)THENl730 

1725 IF(Y/l00=INT(Y/l00))AND(Y/400<>INT(Y/400))THENGOTOl7 
30 
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1727 IF(Y/4=INT(Y/4))AND(M0>=3)THENJl=Jl+1 
1730 RETURN 

2000 DATA"{ 2 SPAZI}GENNAIO"," FEBBRAIO", " { 4 SPAZI}MARZO 

3 SPAZI}APRILE"{ 3 SPAZI}MAGGIO" 

2010 DATA"{ 3 SPAZI}GIUGNO","{ 3 SPAZI}LUGLIO"," 

{ 3 SPAZI}AGOSTO"/"SETTEMBRE"{ 2 SPAZI}OTTOBRE" 
2020 DATA" NOVEMBRE"," DICEMBRE" 

2030 DATA"{ 2 SPAZI}{RVS}DOMENICA{OFF}","{ 4 SPAZl}LUNEDI 
","{ 3 SPAZI}MARTEDÌ"," MERCOLEDÌ","{ 3 SPAZI}GIOVED 
I" 

2040 DATA"{ 3 SPAZI}VENERDÌ","{ 4 SPAZI}SABATO" 


CI6t-pius/4 

Fiammiferi 


Fiammiferi è un gioco molto po¬ 
polare che richiede abilità e 
astuzia per uscirne vincitori. 

In esso bisognerà battersi con¬ 
tro il computer. 

Il gioco prevede che ci siano un 
numero casuale di fiammiferi 
sullo schermo; a turno il gioca¬ 
tore e il computer possono 
prendere alcuni fiammiferi dal 
gruppo, ma non più di tre. 

La scopo del gioco è di lasciare 
al l'avversario l'ultimo fiammife¬ 


ro. 

La partita è divisa in varie man¬ 
che. 

Il vincitore di ciascuna manche 
si aggiudica un punto e, chi per 
primo arriva ai cinque punti, ha 
vinto la partita. 

Il computer è un ottimo giocato¬ 
re e perciò per batterlo in que¬ 
sta "sfida all'ultimo fiammifero" 
bisogna essere molto astuti e 
preparati. 


1 REM FIAMMIFERI 

10 A=INT(RND(1)*8)+32 

50 GOSUB200 

60 GOTO350 

100 IFA>1THENRETURN 

105 IFL=0THENPRINT"{CLR}{ 11 SPAZI}HO VINTO LA MANCHE":CS 
=CS+1 

110 IFL=1THENPRINT"{CLR}{ 10 SPAZI}HAI VINTO LA MANCHE":P 
S=PS+1 

115 IFCS>40RPS>4THENGOSUB1 500:GOTOl50 
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120 PRINT:PRINT"{BLK}{ 10 SPAZI}PUNTEGGI AGGIORNATI 

125 PRINT:PRINT"C16=";CS 

130 PRINT:PRINT"TU ="; PS ;"{BLU}" 

135 F0RXX=1T03:G0SUB1500:NEXTXX 
140 A=INT(RND(1)* 8)+ 32 : RETURN 
150 PRINT"{CLR}" 

155 PRINT:PRINT"{ 9 SPAZI}IL GIOCO E' TERMINATO!" 
160 PRINT 

165 PRINT”{ 12 SPAZI}PUNTEGGI FINALI:" 

170 PRINT 

175 PRINT"C16=";CS 

180 PRINT 

185 PRINT"TU =";PS 

1 90 GOTO!90 

200 PRINT"{CLR}" 

210 GOSUB1000 

230 FORE=1TOl0 

240 COLORO,2,6:COLOR4,15,2 

250 VOL8 

260 SOUNDl,300,5:FORWW=1TO20:NEXT 
270 PRINT"{ 12 SPAZI}***FIAMMIFERI***" 

280 FORF=lTO200:NEXT 

310 NEXTE 
320 RETURN 

350 IFRND(1)<.5THEN400 

360 GOTO500 

400 PRINT"{CLR}" 

410 GOSUBl000 

420 PRINT"{ 9 SPAZI}CI SONO"; A;"FIAMMIFERI" 

430 PRINT"{ 3 GIU'}{ 12 SPAZI}QUANTI NE PRENDI" 

440 INPUTY 

450 IFY<1ORY>3THENPRINT"NON BARARE!":GOT0440 
470 A=A-Y:L=1 
480 GOSUBl00 
500 PRINT"{CLR}" 

510 PRINT"{ 11 SPAZI}E' IL MIO TURNOPRINT 

530 GOSUBl000 

540 IFA=2THENM=1 

545 IFA=3THENM=2 

550 IFA=4THENM=3 

555 IFA=5THENM=1 

560 IFA=6THENM=1 

565 IFA=7THENM=2 

570 IFA>7THENM=INT(RND(1)*3)+1 

605 PRINT"{ 9 SPAZI}CI SONO"; A ;"FIAMMIFERI":PRINT 
607 GOSUBl500 

610 PRINT"{GIU'}{ 9 SPAZI}VOGLIO PRENDERNE -";M 

620 GOSUBl500 
630 A=A-M:L=0 
640 GOSUBl00 
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650 GOTO400 
1000 FORI=1TOA 
1010 POKE3592+G,81 
1 020 POKE2 568+G,2 
1040 G=G+1:NEXTI 
1045 G=0 
1050 FORI=1TOA 
1060 POKE3632+G,229 
1070 POKE2608+G,7 
1090 G=G+1:NEXTI 
1095 G=0 
1100 FORI=1TOA 
1110 PO|KE3672+G, 229 
1 1 20 POÌKE2648+G, 7 
1140 G=b+1:NEXTI 
1150 G=0: RETURN 
1200 RETURN 

1 500 FORZ = 1 TOT 500 :NEXT 
1510 RETURN 


Conan 

Seconda parte 



Eccoti la seconda parte di Co¬ 
nan, l'avventura a puntate di 
Papersoft. Se non hai ancora di¬ 
gitato la prima parte, è il mo¬ 
mento di farlo.- la trovi sul nume¬ 
ro della settimana scorsa. Se in¬ 
vece hai già registrato su casset¬ 


ta o disco la prima parte, ricor¬ 
dati di caricarla prima di in zia re 
la battitura della seconda. Co¬ 
raggio, ancora una settimana ed 
avrai finalmente il programma 
completo! 


10870 GOSUBlll30 :ZE = S:AB=AB+A 

10880 IFX=1THENSP=1 

1 0890 IFX= 3THENAS = 1 

10895 IFX=4THENMZ=1 

10900 IFX=2THENSC=1 

10910 IFX= 5THENPL= 1 

10920 GOTOl0510 

11000 PRINT"{WHT}{RVS}LA GROTTA DELLO STREGONE" 
11010 PRINT"{BLK}{GIU'}ORA SCEGLI COSA COMPRARE 
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11015 PRINT"{YEL}{ 2 GIU'}1)UN AMULETO CHE DONA 10 PUNTI 
FORTUNA(70 ZECCHINI)" 

11020 PRINT"2)UN TALISMANO DA 15 PUNTI FORTUNA(90 ZECCHIN 
I) 

11030 PRINT"3)UN QUADRIFOGLIO DORATO DA 20(110 ZECCHINI" 
11040 PRINT"4)GRAZIE TORNO FRA POCO!" 

1 1 050 PRINT"{WHT}{GIU'}SCEGLI.":X=0:INPUT X:IFX>30RX 

=0THEN10510 

1 1 060 IFX=1THENS = ZE-70:W=1 0 
1 1 070 IFX=2THENS = ZE-90 :W=15 
1 1 080 IFX=3THENS = ZE-110 :W=20 
1 1 090 IFS<OTHENGOSUB11120:GOTOl 051 0 
111 00 GOSUBl1130:ZE=S:FT=FT+W:GOTOl0510 

11120 PRINT"NON HAI ABBASTANZA SOLDI":GOSUB29000 : RETURN 
11130 PRINT"BENE,HAI FATTO UN BUON ACQUISTO!":GOSUB29000 : 
RETURN 

11150 REM -UNNO- 

11160 PRINT"{ 2 GIU'}{BLK}VAI ";CO$;" E UCCIDI L'UNNO!":G 
OSUB29000 

11170 PE= 6 :DI = 4:GOSUB30780:POKEYW,2 

11180 PRINT"{CLR}{GIU*}{WHT}SEI ARRIVATO! YORK E'DAVANTI A 
TE!HA CAPITO CHE SEI VENUTO PER"; 

11190 PRINT" L'IDOLO E SOLLEVA LA SUA PESANTE SCUREIPREPA 
RATI !" 

1 1 200 GOSUB2 9000:CM=55:FZ = 45:NO=l:NM$="YORK":POKEYW,1 :GOS 
UB60000 

11210 POKEYW,2:PRINT"{CLR}";SPC(10){RVS}{WHT}L'IDOLO DE 
L DIO CROWN{ 2 GIU'}" 

11220 PRINTSPC(18)"{RVS}{YEL}£{ 3 SPAZI}[<*>]{GIU'} 

{ 5 SIN} [<*>] £ ":PRINTSPC(18)"{RVS}{ 2 SPAZI} 
{BLK} {YEL}. { 2 SPAZI}" 

11230 PRINTSPC(17)"{RVS}£ { 3 DES} [<*>]" 

11240 FORT=lT03:PRINTSPC(17)"{RVS}{ 7 SPAZI}":NEXT 
11250 PRINTSPC(17)"{RVS}{GRN}{ 7 SPAZI}" 

11260 FORT=lT03:PRINTSPC(17)"{RVS}{YEL}{ 7 SPAZl}":NEXT 
11270 PRINTSPC(17)"[<*>]{RVS}{ 5 SPAZI}{OFF}£{RVS}{GIU'} 

{ 6 SIN}{ 5 SPAZI}" 

11280 PRINTSPC(18)"[<*>]{RVS}{ 3 SPAZI}{OFF}£{RVS}{GIU'} 

{ 4 SIN}{ 3 SPAZI}{GIU'}{ 4 SIN}{ 5 SPAZI}" 

11310 PRINTSPC(9)"{GIU'}{WHT}PRENDILO E TORNA A CASA":GOS 
UB29000:AB=AB+5:FO=FO+8 
1 1 320 ZE=ZE+60:NO=0:GOTO30500 
11330 REM -VEGGENTE- 

1 1 340 POKEYW,2 :PRINT"{CLR}";SPC(10);"{WHT}{RVS}VERSO I MO 
NTI DI CIMERIA":GOSUB27050 

11350 PRINT"{ 4 GIU'}LA STRADA SEMBRA SGOMBRA .":GOSUB 

29000 :PE=8:DI = 6:GOSUB30780 

1 1 360 POKEYW,0:PRINT"{YEL}SEI ARRIVATO .":GOSUB29990 

11370 PRINT"...ENTRI NELLA GROTTA -":GOSUB29990 

11380 PRINT"...ECCO IL VEGGENTE CHE TI INVITA DENTROE TI 
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DICE..":GOSUB29990 

11390 PRINT"{WHT}{ 2 GIU'}1)PER 20 PUNTI DELLA TUA FORZA 
TI OFFRO LA PRIMA PROFEZIA" 

11400 PRINT"{GIU'}2)PER LA SECONDA VOGLIO 15 PUNTI FORTUN 
A" 

11410 PRINT" 3) PER LA TERZA VOGLIO BEN 10 PUNTI DI ABILITA 

I II 

1 1 420 PRINT"{YEL}{ 2 GIU'}SCEGLI O PREMI : 4 PER TORNARE A 
CASA,5 PER LA SITUAZIONE" 

11430 INPUTX:IFX>4THENGOSUB30170 
11435 IFX>4THENPRINT"{CLR}"iGOTOl1390 
11440 IFX=4THEN30500 
1 1445 IFX=1THENFO = FO-2 0 
1 1 450 IFX= 1 ANDFO< OTHENl1510 

11455 IFX=lTHENPRINT"{CLR}{YEL}{GIU'}SE PER LA TORRE ANDR 
AI NON PENSAR AL NUMERO"; 

11460 IFX=1THENPRINT" DEI TUOI NEMICI LUNATICI PERCHE'COD 

ARDI SON." 

11465 IFX=2THENFT=FT-15 
1 1 470 IFX=2ANDFT<0THENl 1 51 0 

11475 IFX=2THENPRINT"{CLR}{YEL}{GIU'}NON SERVE IL PLATINO 
O L'ORO PER COMBATTERE"; 

11480 IFX=2THENPRINT" CONTRO GLI AVVERSARI PIU'POTENTI" 
11485 IFX=3THENAB=AB-10 
1 1 490 IFX = 3ANDAB<0THENl 1510 

1 1 495 IFX=3THENPRINT"{CLR}QUANDO VORRAI CONQUISTARE L' AMB 
ITA ARMA"; 

11500 IFX=3THENPRINT" UNA PORTA DOVRAI APRIR.SCEGLI IL NU 
MERO:{BLK}{GIU'}";SPC (18) ;XY 
11505 GOTOl1520 

11510 PRINT"{CLR}{WHTjHAI TENTATO DI IMBROGLIARMI ! PERCIÒ' 
...":GOSUB29000:GOTO29500 
1 1 520 GOSUB29000: GOTO30 500 
15000 REM -TORRE- 

15010 PRINT"{CLR}":POKEYW,4:PRINTSPC(10)"{WHT}{RVS}VERSO 
LA TORRE MAGICA":GOSUB27050 

15110 PRINT" { 3 GIU '} {WHT}ORA DOVRAI ARRIVARE ALLA VALLE 
DEI LICANTROPI!" 

1 5120 GOSUB29000:PE= 8 : DI = 6 :GOSUB30 780 

15130 POKEYW,0:PRINT"{RVS}{YEL}SEI ENTRATO NELLA VALLE- 

.":GOSUB29990 

15140 PRINT"{GIU'} _SEMBRA TUTTO CALMO ! E'ORMAI NOTTE- 

":GOSUB29990 

15150 PRINT"{WHT}{GIU' }...C'E LA LUNA PIENA IN CIELO. 

"IGOSUB29990 

15160 PRINT"{RED}{ 2 GIU'}..ED ECCO CHE SPUNTANO SEI LICA 
NTROPI!":W=0:GOSUB29000 

15170 PRINT"IL PRIMO TI ATTACCA...HA 45 IN FORZA E 
{ 2 SPAZI}55 IN ABILITA'" 

15180 PRINT"{ 2 GIU'}{WHT}";CO$;"{YEL}1VUOI COMBATTERE O 
PREFERISCI{DESjRINUNCIARE AL VIAGGIO"; 
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1 51 90 PRINT"?(Y/N)" 

15200 GETR$:IFR$=""THENl5200 
15210 IFR$="N"THENPRINT"{CLR}":G0T030500 

1 5220 CM=55:FZ = 45 :NM$="LICANTROPO":NO=l:GOSUB60255:POKE53 
281 ,0 

15230 IFW=1THEN15250 

15240 PRINT"{YEL}IL PRIMO LO HAI UCCISO,MA UN ALTRO TI AT 
TACCA!":W=1:GOTOl5180 

1 5250 NO = 0:PRINT"{YEL}_ANCHE IL SECONDO{DES}E'MORTO !" : 

GOSUB2 9990 

1 5260 PRINT"{RED}..GLI ALTRI TI GUARDANO...-_":GOSUB2999 

0 

15270 PRINT"{WHT}...E SI DILEGUANO NELLA NOTTE!" 

15280 PRINT"{GIU'}LA STRADA E'LIBERA.PUOI CONTINUARE IL 
{ 3 SPAZI}TUO VIAGGIO":GOSUB29000 
1 5290 PE=7: DI = 5 :GOSUB30780 

1 5300 POKEYW,6 :PRINTSPC(13)"{RVS}{WHT}LA TORRE MAGICA" 
15310 PRINTSPC(18)"{ 3 GIU'}{RVS}{BLK} {DES} {DES} {GIU'} 
{ 5 SIN}{ 5 SPAZl}{GIU'}{ 5 SIN}{ 2 SPAZl}{YEL} 

{BLK}{ 2 SPAZI}" 

15320 PRINTSPC(18)"{RVS}{ 5 SPAZI}{GIU'}{ 5 SIN} 

{ 5 SPAZl}{GIU'}{ 5 SIN}{ 5 SPAZI}" 

15330 PRINTSPC(18)"{RVS}{ 2 SPAZI}{YEL} {BLK}{ 2 SPAZI} 

{GIU 1 }{ 5 SIN}{ 2 SPAZI}{YEL} {BLK}{ 2 SPAZI}" 

15340 FORT=lTO200:PRINT"{WHT}{RVS} ";:NEXT 
1 5400 GOSUB29000 

15410 PRINT"{BLK}IL MISTICO TI RIVELA LE PRIME TRE LETTER 
E DEL NOME DEL SIGNORE"; 

1 5420 PRINT" DEL MALE ! NON CONOSCE PERO'L'ULTIMA LETTERA!" 
:GOSUB29990 

1 5430 PRINT"{YEL}{GIU'}ESSE SONO-{WHT}{RVS}"; :FORK=1TO 

3 :PRINTNO$(K) ; :NEXT:PRINT 

1 5440 FO = FO+l0 :PRINT"{ 2 GIU'}{OFF}{WHT}ORA VAI ";CO$;"!" 

:GOSUB29000 :GOTO30 500 
20000 REM -MONTAGNA- 

2001 0 POKEYW,0 :PRINT"{CLR}{WHT}{RVS}IN VIAGGIO VERSO LA M 
ONTAGNA" 

20020 PRINT"{GIU'}{WHT}ORA DOVRAI ARRIVARE ALLA PORTA DI 
ROCCIA" 

20030 GOSUB29000:PE= 6 : DI = 5 :GOSUB30 780 

20040 POKEYW,0:PRINT"{RVS}{SU}{YELjECCO LA PORTA DI ROCCI 

A II . 

r\ • • • • f 

20050 FORT=lT0213:PRINT"{RVS}{BLU} ";:NEXT 

20060 PRINTSPC(17)"{ 2 GIU'}{YEL}{RVS}£{ 2 SPAZl}[<M>] 

{ 3 SPAZI}[<*>]" 

20070 FORT=lT06:PRINTSPC(1 7)"{RVS}{ 3 SPAZI}[<M>] 

{ 4 SPAZI}":NEXT 
20090 PRINT"{ 3 GIU'}" 

201 40 PRINT"-CI SONO 10 NUMERI SCOLPITI...":GOSUB29990 

20150 PRINT"{WHT}...PREMINE UNO,MA ATTENTO!!":INPUT Y 
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201 60 IFY< >XYTHENPRINT"{RVS}{CLR}E'SBAGLIATO! ! UN FULMINE 
TI COLPISCE.:GOSUB29000 
201 70 IFYOXYTHEN29500 

20180 PRINT"{CLR}IL NUMERO E'GIUSTOILA PORTA SI APRE!!" 
20190 PRINT"{ 4 GIU'}{YEL}ORA AVANZA!!":GOSUB29000 
20200 PE=6: DI = 4 :GOSUB30780 

20210 POKEYW,4:PRINT"{RVS}{YEL}INIZIA IL SENTIERO MACABRO 
.{ 2 GIU'}":GOSUB27110 

2021 5 GOSUB29000:POKEYW,0 :PRINT"{YEL}PROVI AD AVANZARE... 
.{GIU'}":GOSUB29990 

20220 PRINT"{WHT}...UN GIGANTESCO VAMPIRO TI SBARRA LA 
{ 3 SPAZI ISTRADA! "-.GOSUB29000 

20230 PRINT"{YELjEGLI TI ATTACCA.{WHT}":GOSUB29990 

20240 IFAS=0THENPRINT"...MA NON HAI L'ASCIA!":PRINT" 

{GIU 1 }NON PUOI DIFENDERTI!" 

20250 IFAS=1THENPRINT"...CON L'ASCIA PUOI COMBATTERE!" 
20260 GOSUB29000:IFAS=0THEN29500 

20270 NM$="VAMPIRÒ":FZ=60:CM=60:NO=l:GOSUB60255 
20280 AB= 75 :FO=80:NO = 0:PRINT"IL SANGUE DEL VAMPIRO RIGENE 
RA LE FORZE." 

20285 PRINT"ORA CONTINUA!":GOSUB 29000 
2 02 90 PE=6: DI = 2 :GOSUB30 7 80 :GOSUB300 50 

20300 GOSUB30050 :PRINTSPC(8)"{ 2 GIU'}{YEL}{RVS}ECCO LA M 
ONTAGNA LUMINOSA!":GOSUB29000 

2031 0 PRINT"{YEL}ATTENTO !C'E 1 QUALCUNO_":GOSUB2 9990 

20320 PRINT"...E'LO SPETTRO DEL MALE!":GOSUB29990 
20330 PRINT"{WHT}SI LANCIA SU DI TE!NON SERVONO LE ARMI 
{ 2 SPAZI{COMUNI....{RED}":GOSUB29990 

20340 IFSP=0THENPRINT"_E TU NON HAI LA SPADA D'ARGENTO. 

Il 

• 

20350 IFSP=1THENPRINT"...MA TU HAI LA SPADA D'ARGENTO!" 
20360 GOSUB2900 0 :IFSP=0THEN29500 

20370 NM$ = "SPETTRO":FZ = 70 :CM= 70 :NO=1 :GOSUB60255 
20380 POKEYW,0 

20390 PRINT"{WHT}ORA ENTRI NELLA MONTAGNA...":GOSUB29990 

20400 PRINT"...E'MOLTO BUIO_SENTI UNA RISATA!":GOSUB299 

90 

2041 0 PRINT"E'LUI ! {YEL}IL SIGNORE DEL MALE!":GOSUB29000 
20420 PRINT"{CLR}{YEL}NON SERVE COMBATTERE ! DEVI PRONUNCIA 
RE IL SUO NOME (4 LETTERE)!'' 

20430 X$ = "":INPUT X$: IFX$=NO${1)+NO$(2)+NO$(3)+NO$(4)THEN 
21 000 

20435 FORY=lT04:IFMID$(X$,Y,1 )=""THEN20420 
20440 NEXT:PRINT"{WHT}IL NOME NON E'GIUSTO!":D=INT(RND(1) 
*30):GOSUB27000 

20445 PRINT"L'ULTIMA LETTERA E'_"; :T=ASC(NO$(4)) :U = ASC 

(MID$(X$,4,1)) 

20450 IFT>UTHENPRINT"TROPPO BASSA!" 

20453 IFT<UTHENPRINT"TROPPO ALTA!" 

20455 IFT=UTHENPRINT"GIUSTA ! DEVI RICORDARTI LE ALTRE" 
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20457 PRINT"IL SIGNORE TI COLPISCE CON UNA SAETTA!":GOSUB 
29990 

20460 PRINT"LA TUA FORZA E'DIMINUITA DI ";D:FO=FO-D:IFFO< 
1THEN29500 

20470 PRINT"ORA NE HAI SOLO...";FO 
20480 GOSUB29000:GOTO20420 

21 000 POKEYW,2 :PRINT"{CLR}{YEL}IL SIGNORE URLA...":GOSUB2 
9990 

21010 PRINT"...HAI INDOVINATO IL SUO NOME!":GOSUB29990 
21020 PRINT"{WHT}EGLI CADE E DIVENTA POLVERE!{ 4 GIU'}":G 
OSUB29990 :GOSUB30000 

21030 PRINTSPC(5)"{ 4 GIU'}{RVS}{YEL}LA SPADA FIAMMEGGIAN 
TE E 1 TUA!":FI = 1 :GOSUB29000 
25000 REM -PUNTEGGIO- 

2501 0 POKEYW,4 :PRINT"{WHT}{ 4 GIU'}{RVS}PUNTEGGIO FINALE. 
...{YEL}"; 

25020 P = FO*2+AB*3+FT+ZE:IFFI = 1 THENP = P+1 000 

25030 IFAS=1THENP=P+500 

25040 IFMZ=1THENP=P+100 

25050 IFSC=1THENP=P+50 

25060 IFSP=1THENP=P+500 

25070 IFPL=1THENP=P+300 

25080 PRINTP:PRINT"{ 3 GIU'}{WHT}{RVS}LA TUA QUALIFICA E' 

fi 

• • • • 

2 5085 IFPCl 00THENQ$ = "INQUALIFICABILE":GOT025500 
25090 IFP<300THENQ$ = "SCHIAVO SENZA ONORE":GOTO25500 
25100 IFP<600THENQ$="SERVO DELLA GLEBA":GOTO25500 
25110 IFP<900THENQ$="SCUDIERO DI TERZA CATEGORIA":GOT0255 
00 

25120 IFPCl500THENQ$="ASPIRANTE GUERRIERO":GOTO25500 
251 30 IFP<2000THENQ$ = "GUERRIERO": GOTO25500 
251 40 IFP<3000THENQ$ = "EROE DELL'AVVENTURA":GOT025500 
251 50 IFPC4000THENQ$ = "RE DELLA CIMERIA": GOTO25500 
251 60 IFP>4000THENQ8 = "IMPERATORE DELL'ORIENTE" 

25500 PRINT"{RVS}{YEL}{GIU’}{ 2 SPAZI}";Q$;"{ 2 SPAZl}":P 
RINT"{ 3 GIU'}{BLKjVUOI RIPROVARE?(Y/N)" 

2551 0 GETA$:IFA$ = ""THEN2551 0 

25520 IFA$ = "N"THENPRINT"{CLR}": END 

25530 CLR:GOTO60 

27000 REM -MASSIMO AB E FO- 

27010 IFFO>90THENFO=90 

27020 IFAB>75THENAB = 7 5 

27030 RETURN 

27050 REM -PAESAGGIO- 

27060 PRINTSPC(10)"{ 7 GIU'}{BLK}{RVS}£ {SU}{SIN}£{GIU'} 
[<*>]£{DES}£ {SU}{SIN}£{GIU'}[<*>]£{ 2 SPAZI} 

{ 3 SU}£[<*>]{GIU 1 }{ 2 SIN}{ 2 SPAZI}[<*>]{GIU'} 

{ 3 SINT{ 3 SPAZI}{GIU’}{ 3 SIN}{ 3 SPAZI}"; 

27080 PRINT"{RVS}[<*>]£{ 2 SU}£{ 2 SPAZI}[<*>]{GIU'} 

{ 4 SIN}{ 4 SPAZI}{GIU'}T 4 SIN}{ 4 SPAZl}[<*>]£ 
[<*>]" 
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27090 FORT=1TO240:PRINT"{RVS} ";:NEXT 

27100 RETURN 

27110 REM -SENTIERO- 

27120 PRINTSPC(14)”{RVS}{BLK}[<*>]{GIU'}{SIN} [<*>]{GIU'} 
{ 2 SIN}{ 2 SPAZI}{ 2 SU}"; 

27130 PRINTSPC(9)"£{GIU'}{ 2 SIN}£ {GIU'}{ 2 SIN} 

{ 2 SPAZI}":PRINTSPC(14); 

27140 FORT=lTOl2:PRINT"{RVS} NEXT:PRINT 

271 50 PRINTSPC(1 4)"{RVS}{ 3 SPAZI}{ 2 DES}£[<*>]{ 2 DES} 

{ 3 SPAZI}"rPRINTSPC(14)"{RVS}{ 3 SPAZI}[<*>]£ 

{ 2 SPAZI}[<*>]£{ 3 SPAZI}" 

271 60 PRINTSPC(1 4) ; 

271 70 FORT=1TOl2 :PRINT"{RVS} NEXT:PRINT 
27180 PRINTSPC(14)"{RVS}{ 3 SPAZI}[<*>]{OFF}[<*>] 

{ 2 DES}£{RVS}£{ 3 SPAZI}" 

27190 FORT=lT02rPRINTSPC(14)"{RVS}{ 4 SPAZl}{ 4 DES} 

{ 4 SPAZI}":NEXT 

27200 PRINTSPC(14)"{RVS}{ 4 SPAZI}[<*>]{ 2 DES}£ 

{ 4 SPAZI}" 

27210 PRINTSPC(14)"{RVS}{ 5 SPAZI}[<*>]£{ 5 SPAZI}{GIU'}" 

27220 FORT=1TOl2 :PRINT"{ 2 SU}{RVS}{ 14 SPAZI}":NEXT:PRIN 
T"{SU}" 

27230 FORT=lTOl2:PRINTSPC(26)"{RVS}{SU}{ 14 SPAZl}":NEXT 
27250 RETURN 
27260 REM -STRADA- 
27270 POKEYW,1 

27280 PRINTSPC(15)"{YEL}{RVS}{ 4 SPAZI}{OFF}£{DES}[<*>] 

{RVS}{ 4 SPAZI}":PRINTSPC(15)"{RVS}{ 3 SPAZl}{OFF} 
£{ 3 DES}[<*>]{RVS}{ 3 SPAZI}" 

27290 PRINTSPC(15)"{RVS}{ 2 SPAZI}{OFF}£{ 5 DES}[<*>] 

{RVS}{ 2 SPAZI}"rPRINTSPC(15)"{RVS} {OFF}£{ 7 DES} 

[< * >] {RVS} " 

27300 PRINTSPC(15)"£";SPC(9) ;"[<*>] { 4 SU}" 

27310 FORT=lT05:PRINT"{RVS}{SU}{ 15 SPAZI}";SPC(11);" 

{ 14 SPAZI}":NEXT 
27320 RETURN 
28999 END 
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Dal prossimo numero 



per battere i nostri listati 

SENZA COMMETTERE ERRORI! 





A Milano, 

in via Mascheroni 14. 
la prima software 
libreria i tal iana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON 

La prima software - libreria italiana. 


A Milano, in via Mascheroni 14. 

Tei. 02-437385 

Vieni a trovarci: ti aspettiamo. 





